|
1700
|
How do I layout expandable columns
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.DrawGridLines = -1
oG2antt.BackColorLevelHeader = oG2antt.BackColor
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("C0")
var_Column.ExpandColumns = "1,2"
var_Column.DisplayExpandButton = true
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Columns.Add("C3")
var_Column1 = var_Columns.Add("C4")
var_Column1.ExpandColumns = "5,6"
var_Column1.DisplayExpandButton = true
var_Columns.Add("C5")
var_Column2 = var_Columns.Add("C6")
var_Column2.ExpandColumns = "6,7"
var_Column2.DisplayExpandButton = true
var_Columns.Add("C7")
oG2antt.EndUpdate()
oG2antt.Columns.Item("C4").Expanded = false
|
|
1699
|
Is it possible to display automatically the start/end margins of the bars
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Def(3,"<%=%1%>")
var_Bar.Def(4,16)
var_Bar.Def(44,"<%=%2%>")
var_Bar.Def(45,18)
var_Chart.ScrollTo(var_Chart.FirstVisibleDate,1)
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.CellValue(h,1,"bar <b>a")
var_Items.AddBar(h,"Task",2000-12-29,2001-01-05)
h = var_Items.AddItem("Item 2")
var_Items.CellValue(h,1,"bar <b>b")
var_Items.AddBar(h,"Task",2000-12-30,2001-01-06)
oG2antt.EndUpdate()
|
|
1698
|
Is it possible to assign the bar's caption from a hidden column
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Def(3,"<%=%C1%>")
var_Bar.Def(4,18)
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.CellValue(h,1,"bar <b>a")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
h = var_Items.AddItem("Item 2")
var_Items.CellValue(h,1,"bar <b>b")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06)
oG2antt.EndUpdate()
|
|
1697
|
Is it possible to assign the bar's tooltip from a hidden column
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Chart.Bars.Item("Task").Def(6,"<%=%C1%>")
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.CellValue(h,1,"This is a bit of text that's shown when the cursor hovers the bar on item 1.")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
h = var_Items.AddItem("Item 2")
var_Items.CellValue(h,1,"This is a bit of text that's shown when the cursor hovers the bar on item 2.")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06)
oG2antt.EndUpdate()
|
|
1696
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 2)
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Default")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
var_Items.ItemBar(h,"",51,65536)
oG2antt.EndUpdate()
|
|
1695
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 1)
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.Bars.Item("Task").Def(51,65536)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Default"),"Task",2001-01-02,2001-01-05)
oG2antt.EndUpdate()
|
|
1694
|
What I need is bars that have a solid color, but with a black frame. How can we do that
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,0)
var_Bar = oG2antt.Chart.Bars.Add("Frame")
var_Bar.Pattern = 1
var_Bar.Color = RGB(0,255,0)
var_Bar.Def(51,65536)
var_Bar.Def(3,"<font ;6><%=%C0%>")
var_Bar.Def(4,18)
var_Bar.Height = 15
oG2antt.Columns.Add("Frames")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Default"),"Frame",2001-01-02,2001-01-07)
h = var_Items.AddItem("Inside Color")
var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
var_Items.ItemBar(h,"",33,255)
h = var_Items.AddItem("Border Color")
var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
var_Items.ItemBar(h,"",51,33023)
h = var_Items.AddItem("Inside/Border Color")
var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
var_Items.ItemBar(h,"",33,16711680)
var_Items.ItemBar(h,"",51,33023)
h = var_Items.AddItem("Thick-Border")
var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
var_Items.ItemBar(h,"",42,4097)
h = var_Items.AddItem("Thick-Border + Pattern")
var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
var_Items.ItemBar(h,"",42,4098)
oG2antt.EndUpdate()
|
|
1693
|
How can we drag bars from one item to the other
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.DrawGridLines = -1
oG2antt.Columns.Add("Members").Def(17,1)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.AllowLinkBars = false
var_Chart.AllowCreateBar = 0
var_Chart.AllowSelectObjects = 0
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,96)
var_Chart.DrawGridLines = -1
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 4611 /*exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
var_Bar.Height = 18
var_Bar.Pattern = 1
var_Bar.Color = RGB(0,128,255)
var_Items = oG2antt.Items
h = var_Items.AddItem("Member <b>1</b>")
var_Items.AddBar(h,"Task",2006-09-21,2006-09-23,"T102","<font ;6><fgcolor FFFFFF>Task <b>102</b>")
var_Items.ItemBar(h,"T102",28,true)
h = var_Items.AddItem("Member <b>2</b>")
h = var_Items.AddItem("Member <b>3</b>")
h = var_Items.AddItem("Member <b>4</b>")
var_Items.AddBar(h,"Task",2006-09-21,2006-09-23,"T103","<font ;6><fgcolor FFFFFF>Task <b>103</b>")
var_Items.ItemBar(h,"T103",28,true)
oG2antt.EndUpdate()
|
|
1692
|
How can I use the exBarBackgroundExt option of the Items.ItemBar property
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 26
var_Chart = oG2antt.Chart
var_Chart.NonworkingDays = 0
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.Bars.Item("Task").Height = 22
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Border-Top")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"top[3,back=RGB(0,0,0)]")
h = var_Items.AddItem("Border-Bottom")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"bottom[3,back=RGB(255,0,0)]")
h = var_Items.AddItem("Border-Left")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"left[6,back=RGB(0,255,0)]")
h = var_Items.AddItem("Border-Right")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"right[6,back=RGB(0,0,255)]")
h = var_Items.AddItem("Border-All")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client")
h = var_Items.AddItem("Middle")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"none[(25%,25%,50%,50%),back=RGB(255,0,0)]")
h = var_Items.AddItem("Horizontal")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"none[(0,50%-2,100%,4),back=RGB(255,0,0)]")
h = var_Items.AddItem("Vertical")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"none[(50%-2,0,4,100%),back=RGB(255,0,0)]")
h = var_Items.AddItem("Mixt")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]")
h = var_Items.AddItem("Misc")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"bottom[50%,pattern=10,frame]")
h = var_Items.AddItem("Complex")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
var_Items.ItemBar(h,"",53,"left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]")
oG2antt.EndUpdate()
|
|
1691
|
Does the title of the cell's tooltip supports HTML format
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("")
var_Column.Caption = ""
var_Column.HTMLCaption = "Column"
var_Items = oG2antt.Items
var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0,"<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color.")
oG2antt.EndUpdate()
|
|
1690
|
How do I specify a different title for the cell's tooltip
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("")
var_Column.Caption = "This is the title"
var_Column.HTMLCaption = "Column"
var_Items = oG2antt.Items
var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0,"This is bit of text that's shown when the user hovers the cell.")
oG2antt.EndUpdate()
|
|
1689
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
OleObject oG2antt,var_Column,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Items = oG2antt.Items
h = var_Items.AddItem("tooltip w/h caption")
var_Items.CellToolTip(h,0,"This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.")
var_Items.CellValue(h,1,"tooltip no caption")
var_Items.CellToolTip(h,1,"This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.")
var_Column = oG2antt.Columns.Item("C2")
var_Column.HTMLCaption = var_Column.Caption
var_Column.Caption = ""
oG2antt.EndUpdate()
|
|
1688
|
How can I programmatically show the column's filter
/*begin event RClick() - Fired when right mouse button is clicked*/
/*
Columns(c).ShowFilter("-1,-1,128,128")
any i
oG2antt = ole_1.Object
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
*/
/*end event RClick*/
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ShowFocusRect = false
var_Column = oG2antt.Columns.Add("Items ")
var_Column.DisplayFilterPattern = false
var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oG2antt.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oG2antt.EndUpdate()
|
|
1687
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)
/*begin event ColumnClick(oleobject Column) - Fired after the user clicks on column's header.*/
/*
Column.SortOrder = 1
oG2antt = ole_1.Object
oG2antt.SortOnClick = -1
oG2antt.Columns.Item("Sort").SortOrder = 1
oG2antt.SortOnClick = 1
*/
/*end event ColumnClick*/
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SortOnClick = 1
oG2antt.Columns.Add("Items")
oG2antt.Columns.Add("Sort").Visible = false
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1,3)
var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1,1)
var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1,2)
oG2antt.EndUpdate()
|
|
1686
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)
/*begin event ColumnClick(oleobject Column) - Fired after the user clicks on column's header.*/
/*
Column.SortOrder = 1
oG2antt = ole_1.Object
oG2antt.Items.SortChildren(0,"Sort",true)
*/
/*end event ColumnClick*/
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SortOnClick = 1
oG2antt.Columns.Add("Items")
oG2antt.Columns.Add("Sort").Visible = false
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1,3)
var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1,1)
var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1,2)
oG2antt.EndUpdate()
|
|
1685
|
How do I get information about control's events
/*begin event Event(long EventID) - Notifies the application once the control fires an event.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(oG2antt.ExecuteTemplate("EventParam(-2)")) ))
*/
/*end event Event*/
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,48)
var_Chart.AllowLinkBars = false
var_Chart.Bars.Item("Task").OverlaidType = 257 /*exOverlaidBarsTransparent | exOverlaidBarsOffset*/
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.EnableItem(h,false)
var_Items.ItemData(h,-1)
h = var_Items.AddItem("Item 2")
var_Items.ItemData(h,0)
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B")
var_Items.ItemBar(h,"B",28,true)
var_Items.ItemData(var_Items.AddItem("Item 3"),0)
h = var_Items.AddItem("Item 4")
var_Items.EnableItem(h,false)
var_Items.ItemData(h,-1)
oG2antt.EndUpdate()
|
|
1684
|
How can I sort by two-columns, one by date and one by time
OleObject oG2antt,var_Column,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSort = false
var_Columns = oG2antt.Columns
var_Columns.Add("Index").FormatColumn = "1 index ``"
var_Columns.Add("Date").SortType = 2
var_Column = var_Columns.Add("Time")
var_Column.SortType = 4
var_Column.FormatColumn = "time(value)"
var_Items = oG2antt.Items
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2001-01-01)
var_Items.CellValue(h,2,DateTime(2001-01-01,10:00:00))
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2000-12-31)
var_Items.CellValue(h,2,DateTime(2001-01-01,10:00:00))
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2001-01-01)
var_Items.CellValue(h,2,DateTime(2001-01-01,06:00:00))
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2000-12-31)
var_Items.CellValue(h,2,DateTime(2001-01-01,08:00:00))
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2001-01-01)
var_Items.CellValue(h,2,DateTime(2001-01-01,08:00:00))
h = var_Items.AddItem(0)
var_Items.CellValue(h,1,2000-12-31)
var_Items.CellValue(h,2,DateTime(2001-01-01,06:00:00))
oG2antt.Layout = "multiplesort=" + CHAR(34) + "C1:1 C2:1" + CHAR(34) + ""
oG2antt.EndUpdate()
|
|
1683
|
I am trying to hide the non-working dates by using the AddNonworkingDate to specify custom non-working dates while NonworkingDays property is 0, but the non-working date is still shown. What can be wrong
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2008-01-01
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingDates = false
var_Chart.NonworkingDays = 128
var_Chart.AddNonworkingDate(2008-01-07)
var_Chart.AddNonworkingDate(2008-01-08)
var_Chart.AddNonworkingDate(2008-01-09)
var_Chart.AddNonworkingDate(2008-01-10)
oG2antt.EndUpdate()
|
|
1682
|
How can I display the task's duration, in days, hours and minutes
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.AllowSizing = false
var_Column.Width = 36
var_Column1 = oG2antt.Columns.Add("Duration")
var_Column1.Def(18,513)
var_Column1.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,148)
var_Chart.FirstVisibleDate = 2009-04-06
var_Chart.LevelCount = 2
var_Chart.UnitScale = 65536
var_Chart.ResizeUnitScale = 1048576
oG2antt.Items.AllowCellValueToItemBar = true
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("T1"),"Task",DateTime(2009-04-06,02:30:00),DateTime(2009-04-06,12:35:00))
var_Items.AddBar(var_Items.AddItem("T2"),"Task",DateTime(2009-04-06,09:00:00),DateTime(2009-04-06,10:10:00))
oG2antt.EndUpdate()
|
|
1681
|
Does your control support working half-hour/minutes/seconds
OleObject oG2antt,var_Bars,var_Chart,var_Column,var_Column1,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.AllowSizing = false
var_Column.Width = 36
var_Column1 = oG2antt.Columns.Add("Working")
var_Column1.Def(18,258)
var_Column1.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2009-04-06
var_Chart.PaneWidth(false,148)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 65536
var_Chart.ResizeUnitScale = 1048576
var_Chart.ResizeUnitCount = 15
var_Chart.NonworkingHours = 15728767
var_Chart.ShowNonworkingDates = false
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingHours = false
var_Bars = var_Chart.Bars
var_Bars.Add("Task:Split").Shortcut = "Task"
var_Bars.Item("Task").Def(20,true)
var_Chart.AllowLinkBars = false
var_Chart.UnitWidth = 26
oG2antt.Items.AllowCellValueToItemBar = true
var_Items = oG2antt.Items
h = var_Items.AddItem("T1")
var_Items.ItemNonworkingUnits(h,false,"(weekday(value) in (1,2,3,4,5) and (timeF(value)<" + CHAR(34) + "09:30" + CHAR(34) + " or timeF(value)>=" + CHAR(34) + "17:30" + CHAR(34) + ")) or (weekday(value) in (0,6))")
var_Items.AddBar(h,"Task",DateTime(2009-04-06,10:00:00),DateTime(2009-04-06,12:30:00))
h = var_Items.AddItem("T2")
var_Items.ItemNonworkingUnits(h,false,"(weekday(value) in (1,2,3,4,5) and (timeF(value)<" + CHAR(34) + "08:00" + CHAR(34) + " or timeF(value)>=" + CHAR(34) + "16:00" + CHAR(34) + ")) or (weekday(value) in (0,6))")
var_Items.AddBar(h,"Task",DateTime(2009-04-06,09:30:00),DateTime(2009-04-06,10:45:00))
oG2antt.EndUpdate()
|
|
1680
|
How can I programmatically move a bar to a specified date-time
OleObject oG2antt,var_Chart,var_Items
any duration,h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Original")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
h = var_Items.AddItem("Moved")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
duration = var_Items.ItemBar(h,"key",513)
var_Items.AddBar(h,"Task",2001-01-05,2001-01-05,"key")
var_Items.ItemBar(h,"key",513,duration)
oG2antt.EndUpdate()
|
|
1679
|
How can I programmatically move a bar, with a specified ammount
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Original")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
h = var_Items.AddItem("Moved")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
var_Items.ItemBar(h,"key",514,3)
oG2antt.EndUpdate()
|
|
1678
|
How can I programmatically move a bar to a specified date-time (auto-adjust spans over a non-working period)
OleObject oG2antt,var_Bars,var_Chart,var_Items
any h,workingCount
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Bars = var_Chart.Bars
var_Bars.Item("Task").Def(20,true)
var_Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Original")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
h = var_Items.AddItem("Moved")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
workingCount = var_Items.ItemBar(h,"key",258)
var_Items.AddBar(h,"Task",2001-01-05,2001-01-05,"key")
var_Items.ItemBar(h,"key",258,workingCount)
oG2antt.EndUpdate()
|
|
1677
|
How can I programmatically move a bar, with a specified ammount (auto-adjust spans over a non-working period)
OleObject oG2antt,var_Bars,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,64)
var_Bars = var_Chart.Bars
var_Bars.Item("Task").Def(20,true)
var_Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Original")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
h = var_Items.AddItem("Moved")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
var_Items.ItemBar(h,"key",514,3)
oG2antt.EndUpdate()
|
|
1676
|
How can I show a secondary curve, line in the control's histogram
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.AntiAliasing = true
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 1136 /*exHistogramNoGrouping | exHistogramAllItems*/
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = 8
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Chart.Level(1).Label = "<font ;3><%d%>"
var_Chart.UnitWidth = 9
var_Bar1 = var_Chart.Bars.Item("Summary")
var_Bar1.HistogramPattern = 1024
var_Bar1.HistogramColor = RGB(255,0,0)
var_Bar1.HistogramType = 0
var_Bar1.HistogramItems = 8
var_Bar1.HistogramBorderSize = 1
var_Items = oG2antt.Items
var_Items.LockedItemCount(0,1)
h = var_Items.LockedItem(0,0)
var_Items.ItemHeight(h,0)
var_Items.AddBar(h,"Summary",2005-01-01,2005-12-31,"1")
var_Items.ItemBar(h,"1",21,"(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-10,2005-07-16,"")
var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0.25 : 2")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-18,2005-07-21,"")
var_Items.ItemBar(h,"",21,"weekday(value) = 1 ? 2.5 : .5")
oG2antt.EndUpdate()
|
|
1675
|
How can I add an owner-draw bar
/*begin event AfterDrawPart(long Part,long hDC,long X,long Y,long Width,long Height) - Occurs right after drawing the part of the control.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "AfterDrawPart" ))
MessageBox("Information",string( String(Part) ))
MessageBox("Information",string( oG2antt.Items.CellCaption(oG2antt.DrawPartItem,0) ))
MessageBox("Information",string( String(oG2antt.DrawPartKey) ))
*/
/*end event AfterDrawPart*/
/*begin event BeforeDrawPart(long Part,long hDC,long X,long Y,long Width,long Height,boolean Cancel) - Occurs just before drawing a part of the control.*/
/*
oG2antt = ole_1.Object
Cancel = true
MessageBox("Information",string( "BeforeDrawPart" ))
MessageBox("Information",string( String(Part) ))
MessageBox("Information",string( oG2antt.Items.CellCaption(oG2antt.DrawPartItem,0) ))
MessageBox("Information",string( String(oG2antt.DrawPartKey) ))
*/
/*end event BeforeDrawPart*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.LevelCount = 2
var_Chart.Bars.Add("OwnerDraw")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Draw-Item-Bar-1"),"OwnerDraw",2001-01-02,2001-01-05,"K1")
var_Items.AddBar(var_Items.AddItem("Draw-Item-Bar-2"),"OwnerDraw",2001-01-06,2001-01-09,"K1")
var_Items.ItemBar(0,"<*>",257,true)
oG2antt.EndUpdate()
|
|
1674
|
Is it possible to show a status left or right to the bar (method 2, exBarFrameColor, EBN)
OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJDEMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI=")
var_Appearance.Add(1,"CP:2 -8 -1 0 0")
var_Appearance.Add(3,"CP:2 0 -1 0 0")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Red-Status-Outside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",51,16777471)
h = var_Items.AddItem("Blue-Status-Outside")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",51,33488896)
h = var_Items.AddItem("Red-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",51,50331903)
h = var_Items.AddItem("Blue-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",51,67043328)
oG2antt.EndUpdate()
|
|
1673
|
Is it possible to show a status left or right to the bar (method 1, exBarBackgroundExt)
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Red-Left-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",53,"left[6,back=RGB(255,0,0)]")
h = var_Items.AddItem("Blue-Left-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",53,"left[6,back=RGB(0,0,255)]")
h = var_Items.AddItem("Red-Right-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",53,"right[6,back=RGB(255,0,0)]")
h = var_Items.AddItem("Blue-Right-Status-Inside")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",53,"right[6,back=RGB(0,0,255)]")
oG2antt.EndUpdate()
|
|
1672
|
How can I use the ItemBar(exBarBackgroundExt) property for a bar
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 31
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = RGB(224,224,224)
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.Level(0).GridLineColor = oG2antt.GridLineColor
var_Chart.Level(1).GridLineColor = oG2antt.GridLineColor
var_Chart.ShowNonworkingDates = false
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.Bars.Item("Task").Height = 21
var_Chart.DrawGridLines = -1
var_Items = oG2antt.Items
h = var_Items.AddItem("Normal")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
h = var_Items.AddItem("Red-Frame-Inside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",53,"[frame=RGB(255,0,0),framethick]")
h = var_Items.AddItem("LR-Margins")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
h = var_Items.AddItem("LR-Margins (front)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-07,"K1")
var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
var_Items.ItemBar(h,"K1",54,2)
h = var_Items.AddItem("LR-Margins (back)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-08,"K1")
var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
var_Items.ItemBar(h,"K1",54,3)
h = var_Items.AddItem("TB-Margins")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-09,"K1")
var_Items.ItemBar(h,"K1",53,"top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]")
h = var_Items.AddItem("TB-Margins")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-10,"K1")
var_Items.ItemBar(h,"K1",53,"top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]")
var_Items.ItemBar(h,"K1",54,2)
h = var_Items.AddItem("Caption(back)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-11,"K1")
var_Items.ItemBar(h,"K1",53,"client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])")
var_Items.ItemBar(h,"K1",54,2)
h = var_Items.AddItem("Pattern-Outside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
var_Items.ItemBar(h,"K1",53,"bottom[10%,pattern=7,frame]")
var_Items.ItemBar(h,"K1",54,2)
h = var_Items.AddItem("Pattern-Inside")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-13,"K1")
var_Items.ItemBar(h,"K1",53,"bottom[7,pattern=3,frame]")
h = var_Items.AddItem("Pattern-Inside-Caption")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
var_Items.ItemBar(h,"K1",53,"top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`,align=0x11,pattern=0x001,frame=RGB(255,0,0)])")
h = var_Items.AddItem("Complex(back)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-11,"K1")
var_Items.ItemBar(h,"K1",53,"top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])")
var_Items.ItemBar(h,"K1",54,3)
h = var_Items.AddItem("Complex(inside)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
var_Items.ItemBar(h,"K1",53,"top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])")
oG2antt.EndUpdate()
|
|
1671
|
How can display seconds
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,96)
var_Chart.FirstVisibleDate = 2008-01-17
var_Chart.LevelCount = 2
var_Chart.UnitScale = 16777216
var_Chart.Level(0).Alignment = 17 /*exHOutside | CenterAlignment*/
var_Chart.Level(1).FormatLabel = "(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:"
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",DateTime(2008-01-17,00:00:02),DateTime(2008-01-17,00:00:08))
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",DateTime(2008-01-17,00:00:05),DateTime(2008-01-17,00:00:15))
|
|
1670
|
How can I check if an item contains a bar
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
MessageBox("Information",string( "Count of A: " ))
MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"A",256)) ))
MessageBox("Information",string( "Count of B: " ))
MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"B",256)) ))
MessageBox("Information",string( "Count of C: " ))
MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"C",256)) ))
*/
/*end event SelectionChanged*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,48)
var_Chart.Bars.Item("Task").Def(4,18)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"A","A")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"B","B")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"C","C")
oG2antt.EndUpdate()
|
|
1669
|
How can I connect to a DBF file
OleObject oG2antt,rs
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
rs.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
oG2antt.DataSource = rs
oG2antt.Chart.PaneWidth(true,0)
oG2antt.EndUpdate()
|
|
1668
|
How do I get the caption with no HTML format
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
h = var_Items.AddItem("This is a bit of <b>HTML-formatted</b> text")
var_Items.CellValueFormat(h,0,1)
var_Items.AddItem(var_Items.CellCaption(h,0))
|
|
1667
|
How can I change the bar's color based on its length/duration
OleObject oG2antt,var_Chart,var_Column,var_Columns,var_ConditionalFormat,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Duration")
var_Column.Def(18,513)
var_Column.Editor.EditType = 4
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2005-06-06
var_Chart.PaneWidth(false,128)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 >= 4")
var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyToBars = "Task"
var_ConditionalFormat.BarColor = RGB(255,0,0)
var_ConditionalFormat.ForeColor = var_ConditionalFormat.BarColor
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-13,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-16,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-15,"")
oG2antt.EndUpdate()
|
|
1666
|
Is it possible to colorize the bars based on its starting/ending date
OleObject oG2antt,var_Chart,var_Column,var_Columns,var_ConditionalFormat,var_InsideZoomFormat,var_InsideZooms,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 129 /*exDisableSplitter | exResizeChart*/
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Visible = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2005-05-31
var_Chart.PaneWidth(false,0)
var_Chart.AllowInsideZoom = true
var_Chart.AllowResizeInsideZoom = false
var_Chart.InsideZoomOnDblClick = false
var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
var_InsideZoomFormat.PatternChart = 6
var_InsideZoomFormat.PatternColorChart = RGB(255,0,0)
var_InsideZoomFormat.ForeColor = var_InsideZoomFormat.PatternColorChart
var_InsideZooms = var_Chart.InsideZooms
var_InsideZooms.SplitBaseLevel = false
var_InsideZooms.DefaultWidth = 18
var_InsideZooms.Add(2005-06-10).AllowInsideFormat = false
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 <= #6/10/2005#")
var_ConditionalFormat.ApplyToBars = "Task"
var_ConditionalFormat.BarColor = RGB(255,0,0)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()
|
|
1665
|
How can I change the bar's color based on values on the columns
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Chart,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
var_ConditionalFormats = oG2antt.ConditionalFormats
var_ConditionalFormat = var_ConditionalFormats.Add("1")
var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
var_ConditionalFormat.Bold = true
var_ConditionalFormat.BackColor = RGB(250,250,250)
var_ConditionalFormat1 = var_ConditionalFormats.Add("%1 = 5")
var_ConditionalFormat1.ApplyToBars = "Task"
var_ConditionalFormat1.BarColor = RGB(255,0,0)
var_ConditionalFormat1.ForeColor = RGB(255,0,0)
var_ConditionalFormat1.BarOverviewColor = RGB(255,0,0)
var_ConditionalFormat2 = var_ConditionalFormats.Add("%1 = 3")
var_ConditionalFormat2.ApplyToBars = "Task"
var_ConditionalFormat2.BarColor = RGB(0,255,0)
var_ConditionalFormat2.ForeColor = RGB(0,255,0)
var_ConditionalFormat2.BarOverviewColor = RGB(0,255,0)
oG2antt.EndUpdate()
|
|
1664
|
How can I display / specify a fixed percent for the task in the histogram, no matter how long the task is
OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.UnitWidth = 32
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
var_Chart.PaneWidth(false,64)
var_Chart.FirstVisibleDate = 2005-06-20
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 64
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 1
var_Bar.ShowHistogramValues = String(1)
var_Bar1 = var_Chart.Bars.Copy("Task","TaskFixed")
var_Bar1.HistogramType = 513 /*exHistOverAllocationFixed | exHistOverAllocation*/
var_Bar1.ShowHistogramValues = String(1)
var_Bar2 = var_Chart.Bars.Copy("Task","TaskMultiply")
var_Bar2.HistogramType = 1025 /*exHistOverAllocationMultiply | exHistOverAllocation*/
var_Bar2.ShowHistogramValues = String(1)
var_Items = oG2antt.Items
h = var_Items.AddItem("Allocation")
var_Items.AddBar(h,"Task",2005-06-21,2005-06-23,"A","Effort/Length")
var_Items.ItemBar(h,"A",21,0.25)
var_Items.ItemBar(h,"A",5,18)
var_Items.AddBar(h,"TaskFixed",2005-06-24,2005-06-26,"B","Effort")
var_Items.ItemBar(h,"B",21,0.25)
var_Items.ItemBar(h,"B",5,18)
var_Items.AddBar(h,"TaskMultiply",2005-06-27,2005-06-29,"C","Effort*Length")
var_Items.ItemBar(h,"C",21,0.25)
var_Items.ItemBar(h,"C",5,18)
oG2antt.EndUpdate()
|
|
1663
|
Does your control supports scrolling by touching the screen
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
oG2antt.ContinueColumnScroll = true
oG2antt.ScrollBySingleLine = true
oG2antt.Chart.AllowCreateBar = 0
oG2antt.AutoDrag = 4112 /*exAutoDragScrollOnShortTouch | exAutoDragScroll*/
oG2antt.EndUpdate()
|
|
1662
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (zoom-onfly)
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.UnitScale = 4096
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.DrawGridLines = -1
var_Chart.AllowZoomOnFly = 24
var_Chart.ResizeUnitScale = 65536
var_Chart.ResizeUnitCount = 4
var_Chart.Label(65536,"<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536")
var_Chart.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0%>"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1661
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (inside-zoom)
OleObject oG2antt,var_Chart,var_InsideZoomFormat,var_InsideZooms
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.UnitScale = 4096
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2008-01-01
var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
var_InsideZoomFormat.InsideLabel = "<%hh%>"
var_InsideZoomFormat.InsideUnit = 65536
var_InsideZoomFormat.InsideCount = 8
var_Chart.AllowInsideZoom = true
var_InsideZooms = var_Chart.InsideZooms
var_InsideZooms.Add(2008-01-04)
var_Chart.DrawGridLines = -1
oG2antt.EndUpdate()
|
|
1660
|
How can I export the control's content to a PDF document (method 1)
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items,var_Print
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,196)
var_Chart.LevelCount = 2
var_Chart.ShowEmptyBars = 1
var_Chart.FirstVisibleDate = 2009-01-01
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2009-01-02,2009-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2009-01-04,2009-01-09)
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
var_Print.PrintExt = oG2antt.Object
var_Print.CopyTo("c:/temp/xtest.pdf")
MessageBox("Information",string( "Look for C:\Temp\xtest.pdf file." ))
oG2antt.EndUpdate()
|
|
1659
|
How can I export the control's content to a PDF document (method 2)
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any var_CopyTo
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,196)
var_Chart.LevelCount = 2
var_Chart.ShowEmptyBars = 1
var_Chart.FirstVisibleDate = 2009-01-01
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2009-01-02,2009-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2009-01-04,2009-01-09)
var_CopyTo = oG2antt.CopyTo("c:/temp/xtest.pdf")
MessageBox("Information",string( "Look for C:\Temp\xtest.pdf file." ))
oG2antt.EndUpdate()
|
|
1658
|
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done
OleObject oG2antt,var_Column,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Date")
var_Column.FormatColumn = "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) right 2) ) : '' )"
var_Editor = var_Column.Editor
var_Editor.EditType = 7
var_Editor.Option(14,true)
var_Items = oG2antt.Items
var_Items.AddItem(2012-05-12)
var_Items.AddItem()
var_Items.AddItem(2012-05-14)
oG2antt.EndUpdate()
|
|
1657
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.CellValue(Item,2,var_Items.CellState(Item,0))
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Column,var_ConditionalFormat,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ShowFocusRect = false
oG2antt.SelBackMode = 1
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%2 != 0")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ForeColor = RGB(255,0,0)
var_ConditionalFormat.ApplyTo = -1
var_Column = oG2antt.Columns.Add("")
var_Column.Def(0,true)
var_Column.Width = 16
var_Column.AllowSizing = false
oG2antt.Columns.Add("Information")
oG2antt.Columns.Add("Hidden").Visible = false
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem(""),1,"This is a bit of text associated")
h = var_Items.AddItem("")
var_Items.CellValue(h,1,"This is a bit of text associated")
var_Items.CellState(h,0,1)
var_Items.CellValue(var_Items.AddItem(""),1,"This is a bit of text associated")
oG2antt.EndUpdate()
|
|
1656
|
How can I hide the items/grid section of the control
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 129 /*exDisableSplitter | exResizeChart*/
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Chart.PaneWidth(false,0)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()
|
|
1655
|
How can I draw an extra line which could indicate deadline for my tasks
OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMdwiGoYJ4hGgKChqI43RZNErURRkEwCgIA=")
var_Appearance.Add(1,"CP:2 0 -4 0 4")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Default")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
var_Items.ItemBar(h,"K1",51,16777471)
var_Items.AddBar(h,"Task",2001-01-09,2001-01-14,"K2")
var_Items.ItemBar(h,"K2",51,33488896)
oG2antt.EndUpdate()
|
|
1654
|
How can I mark/highlight a zone in the control's histogram
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = 12
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.Chart.MarkTimeZone("zone",2005-06-13,2005-06-14,15790320,";;;;histogram;1")
oG2antt.EndUpdate()
|
|
1653
|
How can I get the min/max values from the histogram
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
OleObject var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
MessageBox("Information",string( "Value" ))
MessageBox("Information",string( String(var_Chart.HistogramValue(var_Chart.DateFromPoint(-1,-1))) ))
MessageBox("Information",string( "MIN" ))
MessageBox("Information",string( String(var_Chart.HistogramValue("min")) ))
MessageBox("Information",string( "MAX" ))
MessageBox("Information",string( String(var_Chart.HistogramValue("max")) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = 12
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()
|
|
1652
|
How can I assign different efforts(expression) to the same bar
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstWeekDay = 1
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = 12
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Chart.Level(1).Label = "<font ;3><%d%>"
var_Chart.UnitWidth = 9
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-10,2005-06-14,"")
var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0.25 : 2")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-18,2005-06-21,"")
var_Items.ItemBar(h,"",21,"weekday(value) = 1 ? 2 : 1")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-27,2005-07-09,"")
var_Items.ItemBar(h,"",21,"month (value) = 7 ? 1 : 0")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-27,2005-07-05,"")
var_Items.ItemBar(h,"",21,"(month(value)=month(value+1)) ? 1 : 0")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-22,2005-06-26,"")
var_Items.ItemBar(h,"",21,"int(value-start) ? 1 : 2")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-07-10,2005-07-14,"")
var_Items.ItemBar(h,"",21,"(int(value-start) and int(end-value) != 0 ) ? 1 : 2")
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-07-15,2005-07-22,"")
var_Items.ItemBar(h,"",21,"(int(value-start)+1) mod 2 ? 1 : 0")
oG2antt.EndUpdate()
|
|
1651
|
How can I prevent showing the representation of the bar on the week days, nonworking part
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-09
var_Chart.HistogramVisible = true
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 128
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = 12
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2005-06-10,2005-06-21,"")
var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0 : 2")
oG2antt.EndUpdate()
|
|
1650
|
How do I programatically focus a cell
/*begin event FocusChanged() - Occurs when a cell gets the focus.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0))
*/
/*end event FocusChanged*/
OleObject oG2antt,var_Columns,var_Items,var_Items1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DrawGridLines = -2
var_Columns = oG2antt.Columns
var_Columns.Add("Column1")
var_Columns.Add("Column2")
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem("Cell 1.1"),1,"Cell 1.2")
var_Items.CellValue(var_Items.AddItem("Cell 2.1"),1,"Cell 2.2")
var_Items1 = oG2antt.Items
var_Items1.SelectItem(var_Items1.ItemByIndex(1),true)
oG2antt.FocusColumnIndex = 1
oG2antt.EndUpdate()
|
|
1649
|
How do I programatically focus a cell (excrd)
/*begin event FocusChanged() - Occurs when a cell gets the focus.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0))
*/
/*end event FocusChanged*/
OleObject oG2antt,var_Column,var_Columns,var_Items,var_Items1
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DrawGridLines = -2
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
var_Columns.Add("Column1").Visible = false
var_Columns.Add("Column2").Visible = false
var_Columns.Add("Column3").Visible = false
var_Column = var_Columns.Add("FormatLevel")
var_Column.FormatLevel = "(0/1),2"
var_Column.Def(32,var_Column.FormatLevel)
var_Items = oG2antt.Items
h = var_Items.AddItem("Cell 1.1")
var_Items.CellValue(h,1,"Cell 1.2")
var_Items.CellValue(h,2,"Cell 1.3")
h = var_Items.AddItem("Cell 2.1")
var_Items.CellValue(h,1,"Cell 2.2")
var_Items.CellValue(h,2,"Cell 2.3")
var_Items1 = oG2antt.Items
var_Items1.SelectItem(var_Items1.ItemByIndex(1),true)
oG2antt.FocusColumnIndex = 2
oG2antt.EndUpdate()
|
|
1648
|
How can I get task's user data ( exBarData ) when user double clicks the bar
/*begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
any item,key
oG2antt = ole_1.Object
item = oG2antt.ItemFromPoint(-1,-1,c,hit)
key = oG2antt.Chart.BarFromPoint(-1,-1)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(item,key,17)) ))
*/
/*end event DblClick*/
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
var_Items.ItemBar(h,"",17,"this is a bit of extra data associated with task 1")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
var_Items.ItemBar(h,"",17,"this is a bit of extra data associated with task 2")
oG2antt.EndUpdate()
|
|
1647
|
How do I get arranged the levels to display, weeks, days and so on
OleObject oG2antt,var_Chart,var_Level,var_Level1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.UnitWidth = 24
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstWeekDay = 1
var_Level = var_Chart.Level(0)
var_Level.Alignment = 1
var_Level.Label = "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>"
var_Level.Unit = 256
var_Level.DrawGridLines = true
var_Level1 = var_Chart.Level(1)
var_Level1.Alignment = 1
var_Level1.Label = "<Font Tahoma;7><%d%>"
var_Level1.Unit = 4096
var_Chart.DrawGridLines = -1
oG2antt.EndUpdate()
|
|
1646
|
How can I add a task and a milestone to the same item
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Milestone",2001-01-02,2001-01-02,"MKey")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
|
|
1645
|
How can I change the visual appearance of the buttons on the control's overview part
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" &
+"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" &
+"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.Label(16777216,"")
var_Chart.Label(0,"")
oG2antt.Chart.OverviewSelBackColor = 33554176 /*0x1ffff00*/
|
|
1644
|
Is there a way to show the Start and End dates in mm-dd-yyyy format
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-25
var_Chart.PaneWidth(false,196)
var_Column = oG2antt.Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Def(19,"K1")
var_Column.FormatColumn = "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )"
var_Column1 = oG2antt.Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Def(19,"K1")
var_Column1.FormatColumn = "shortdateF(value) replace `/` with `-`"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-01,2001-01-05,"K1")
var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-02,2001-01-06,"K1")
oG2antt.EndUpdate()
|
|
1643
|
Is there a way to show the Start and End dates in dd-mm-yyyy format
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-25
var_Chart.PaneWidth(false,196)
var_Column = oG2antt.Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Def(19,"K1")
var_Column.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
var_Column1 = oG2antt.Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Def(19,"K1")
var_Column1.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-01,2001-01-05,"K1")
var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-02,2001-01-06,"K1")
oG2antt.EndUpdate()
|
|
1642
|
If we have bars with dark color, we use white font/color. But if the bars are too small for the caption, you cant read it. What can we do
OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2000-12-29
oG2antt.Chart.PaneWidth(false,48)
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.Pattern = 1
var_Bar.Height = 17
var_Bar1 = oG2antt.Chart.Bars.Item("Progress")
var_Bar1.Pattern = 1
var_Bar1.Height = 17
var_Bar1.Shape = 1
var_Bar1.Color = RGB(0,0,255)
var_Bar2 = oG2antt.Chart.Bars.Add("Task%Progress")
var_Bar2.Pattern = 1
var_Bar2.Height = 17
var_Bar2.Shortcut = "Percent"
oG2antt.DefaultItemHeight = 21
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
var_Items.ItemBar(h,"",33,4112616)
var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Pause")
var_Items.AddBar(h,"Task",2001-01-09,2001-01-12,"white")
var_Items.ItemBar(h,"white",33,4112616)
var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Pause")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-04,"")
var_Items.ItemBar(h,"",33,2017557)
var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Production")
var_Items.AddBar(h,"Task",2001-01-10,2001-01-11,"white")
var_Items.ItemBar(h,"white",33,2017557)
var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Production")
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Percent",2001-01-03,2001-01-04,"")
var_Items.ItemBar(h,"",12,0.5)
var_Items.ItemBar(h,"",33,2017557)
var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Pausing")
var_Items.AddBar(h,"Percent",2001-01-10,2001-01-11,"white")
var_Items.ItemBar(h,"white",12,0.5)
var_Items.ItemBar(h,"white",33,2017557)
var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Pausing")
h = var_Items.AddItem("Task 4")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-04,"")
var_Items.ItemBar(h,"",33,8421504)
var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Planned downtime")
var_Items.AddBar(h,"Task",2001-01-10,2001-01-11,"white")
var_Items.ItemBar(h,"white",33,8421504)
var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Planned downtime")
oG2antt.EndUpdate()
|
|
1641
|
How do I programmatically exclude items from the filter
OleObject oG2antt,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Items")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterPattern = false
var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oG2antt.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 752 /*exFilterExclude | exFilter*/
var_Column1.Filter = "Item 1|Item 4"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1640
|
How do I show in histogram, more values for a single task
/*begin event BeforeExpandItem(long Item,any Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
oG2antt = ole_1.Object
Cancel = true
*/
/*end event BeforeExpandItem*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hR
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = true
oG2antt.ExpandOnDblClick = false
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.AllowLinkBars = false
var_Chart.DrawGridLines = -1
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 167
var_Chart.PaneWidth(false,128)
var_Chart.HistogramView = 1040 /*exHistogramNoGrouping | exHistogramUnlockedItems*/
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramType = 256
var_Bar.HistogramItems = 6
var_Bar.HistogramPattern = 1
var_Bar.HistogramItems = -40000
var_Bar.HistogramCriticalValue = 100000
var_Bar.HistogramRulerLinesColor = RGB(128,128,128)
var_Bar.HistogramCumulativeColors = 3
var_Chart.ShowNonworkingDates = false
oG2antt.Columns.Add("Costs").Visible = false
oG2antt.Columns.Add("Tasks").Visible = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Estimated")
var_Items.CellValue(h,1,"Task 1")
var_Items.AddBar(h,"Task",2001-01-01,2001-01-10)
var_Items.ItemBar(h,"",21,8000)
hR = var_Items.InsertItem(h,,"Actual")
var_Items.AddBar(hR,"Task",2001-01-01,2001-01-10)
var_Items.ItemBar(hR,"",21,9000)
var_Items.GroupBars(h,"",true,hR,"",true)
var_Items.GroupBars(h,"",false,hR,"",false)
hR = var_Items.InsertItem(h,,"Cost")
var_Items.AddBar(hR,"Task",2001-01-01,2001-01-10)
var_Items.ItemBar(hR,"",21,200)
var_Items.GroupBars(h,"",true,hR,"",true)
var_Items.GroupBars(h,"",false,hR,"",false)
h = var_Items.AddItem("Estimated")
var_Items.CellValue(h,1,"Task 2")
var_Items.AddBar(h,"Task",2001-01-09,2001-01-15)
var_Items.ItemBar(h,"",21,7000)
hR = var_Items.InsertItem(h,,"Actual")
var_Items.AddBar(hR,"Task",2001-01-09,2001-01-15)
var_Items.ItemBar(hR,"",21,8000)
var_Items.GroupBars(h,"",true,hR,"",true)
var_Items.GroupBars(h,"",false,hR,"",false)
hR = var_Items.InsertItem(h,,"Cost")
var_Items.AddBar(hR,"Task",2001-01-09,2001-01-15)
var_Items.ItemBar(hR,"",21,150)
var_Items.GroupBars(h,"",true,hR,"",true)
var_Items.GroupBars(h,"",false,hR,"",false)
oG2antt.EndUpdate()
|
|
1639
|
How can I align the caption of the bar
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-25
var_Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 0")
var_Items.ItemBar(h,"K",4,0)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 1")
var_Items.ItemBar(h,"K",4,1)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 2")
var_Items.ItemBar(h,"K",4,2)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 3")
var_Items.ItemBar(h,"K",4,3)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 4")
var_Items.ItemBar(h,"K",4,4)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 5")
var_Items.ItemBar(h,"K",4,5)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Left 16")
var_Items.ItemBar(h,"K",4,16)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Right 18")
var_Items.ItemBar(h,"K",4,18)
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Center 17")
var_Items.ItemBar(h,"K",4,17)
oG2antt.EndUpdate()
|
|
1638
|
How can I change the drop down filter background color
OleObject oG2antt,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Background(26,RGB(255,255,255))
var_Column = oG2antt.Columns.Add("Items")
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterPattern = false
var_Column.FilterList = 1315 /*exShowFocusItem | exShowCheckBox | exSortItemsAsc | exLeafItems*/
var_Items = oG2antt.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1637
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 2)
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("C1")
var_Column.Def(0,true)
var_Column.Width = 18
var_Column.AllowSizing = false
var_Column1 = var_Columns.Add("C2")
var_Column1.Def(0,true)
var_Column1.Width = 18
var_Columns.Add("Column1").Visible = false
var_Columns.Add("Column2").Visible = false
var_Columns.Add("Column3").Visible = false
var_Column2 = var_Columns.Add("FormatLevel")
var_Column2.FormatLevel = "18;" + CHAR(34) + "Info" + CHAR(34) + "[a=17]/(2/3,4)"
var_Column2.Def(32,"2/3,4")
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = -1
var_Chart.FirstVisibleDate = 2014-06-22
var_Items = oG2antt.Items
h = var_Items.AddItem("Cell 1.1")
var_Items.CellValue(h,1,"Cell 1.2")
var_Items.CellValue(h,2,"Cell 1.3")
var_Items.AddBar(h,"Task",2014-06-23,2014-06-25)
h = var_Items.AddItem("Cell 2.1")
var_Items.CellValue(h,1,"Cell 2.2")
var_Items.CellValue(h,2,"Cell 2.3")
var_Items.AddBar(h,"Task",2014-06-26,2014-06-28)
oG2antt.EndUpdate()
|
|
1636
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 1)
OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
var_Columns.Add("Column1").Visible = false
var_Columns.Add("Column2").Visible = false
var_Columns.Add("Column3").Visible = false
var_Column = var_Columns.Add("FormatLevel")
var_Column.FormatLevel = "(0/1),2"
var_Column.Def(32,var_Column.FormatLevel)
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = -1
var_Chart.FirstVisibleDate = 2014-06-22
var_Items = oG2antt.Items
h = var_Items.AddItem("Cell 1.1")
var_Items.CellValue(h,1,"Cell 1.2")
var_Items.CellValue(h,2,"Cell 1.3")
var_Items.AddBar(h,"Task",2014-06-23,2014-06-25)
h = var_Items.AddItem("Cell 2.1")
var_Items.CellValue(h,1,"Cell 2.2")
var_Items.CellValue(h,2,"Cell 2.3")
var_Items.AddBar(h,"Task",2014-06-26,2014-06-28)
oG2antt.EndUpdate()
|
|
1635
|
How do I display the histogram for filtered items only
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 128
var_Chart.Bars.Item("Task").HistogramPattern = 6
var_Column = oG2antt.Columns.Add("Column")
var_Column.DisplayFilterButton = true
var_Column.Filter = "Item 1"
var_Column.FilterType = 240
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-07)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1634
|
How can I use no scroll bars for touch-screens
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oG2antt = ole_1.Object
oG2antt.ShowToolTip("<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling.")
*/
/*end event MouseMove*/
OleObject oG2antt,rs,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 0
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.AutoDrag = 16
oG2antt.ScrollWidth = 4
oG2antt.ScrollHeight = 4
oG2antt.Background(384,RGB(192,192,192))
oG2antt.Background(392,RGB(192,192,192))
oG2antt.Background(404,RGB(224,224,224))
oG2antt.Background(388,RGB(128,128,128))
oG2antt.Background(276,RGB(224,224,224))
oG2antt.Background(264,RGB(192,192,192))
oG2antt.Background(260,RGB(128,128,128))
oG2antt.Background(256,RGB(192,192,192))
oG2antt.ScrollButtonWidth = 0
oG2antt.ScrollButtonHeight = 0
oG2antt.EndUpdate()
|
|
1633
|
How can I display values in the histogram legend
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
var_Column.Def(18,21)
var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
var_Chart.PaneWidth(false,96)
var_Chart.FirstVisibleDate = 2005-06-20
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 128
var_Chart.HistogramView = 112
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramCriticalValue = 3
var_Bar.HistogramItems = -7
var_Bar.HistogramGridLinesColor = RGB(192,192,192)
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2005-06-21,2005-06-23)
var_Items.CellValue(h1,1,4)
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",2005-06-24,2005-06-26)
var_Items.CellValue(h1,1,3)
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",2005-06-27,2005-06-29)
var_Items.CellValue(h1,1,2)
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",2005-06-30,2005-07-02)
var_Items.CellValue(h1,1,1)
oG2antt.EndUpdate()
|
|
1632
|
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar
OleObject oG2antt,var_Columns
oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
var_Columns.Add("First")
var_Columns.Add("Second")
var_Columns.Add("Third")
oG2antt.SortBarVisible = true
oG2antt.SingleSort = false
oG2antt.AllowGroupBy = true
oG2antt.Layout = "SingleSort = " + CHAR(34) + "C0:1" + CHAR(34) + ";MultipleSort = " + CHAR(34) + "C1:2 C2:1" + CHAR(34) + ""
|
|
1631
|
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar
OleObject oG2antt,var_Columns
oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
var_Columns.Add("First")
var_Columns.Add("Second")
var_Columns.Add("Third")
oG2antt.SortBarVisible = true
oG2antt.SingleSort = false
oG2antt.Layout = "SingleSort = " + CHAR(34) + "C0:1" + CHAR(34) + ""
|
|
1630
|
How can I specify different working parts for different items
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Columns,var_InsideZoomFormat,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Working")
var_Column.Def(18,258)
var_Column.Def(19,"A")
var_Column.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
var_Column1 = var_Columns.Add("NonWorking")
var_Column1.Def(18,259)
var_Column1.Def(19,"A")
var_Column1.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,78)
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = 2005-06-20
var_Chart.DrawLevelSeparator = false
var_Chart.LevelCount = 3
var_Chart.Level(1).DrawGridLines = false
var_Chart.AllowInsideZoom = true
var_Chart.DrawDateTicker = true
var_Chart.DateTickerLabel = "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
var_Chart.MarkSelectDateColor = 2147481838 /*0x7ffff8ee*/
var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
var_InsideZoomFormat.OwnerLabel = "<%mmm%> <%d%>"
var_InsideZoomFormat.BackColor = RGB(238,248,255)
var_InsideZoomFormat.BackColorChart = var_InsideZoomFormat.BackColor
var_InsideZoomFormat.InsideCount = 4
var_InsideZoomFormat.InsideLabel = "<b><%hh%></b>"
var_Chart.InsideZooms.Add(2005-06-22)
var_Chart.DrawGridLines = 2
var_Chart.Bars.Item("Split").Color = RGB(255,0,0)
var_Bar = var_Chart.Bars.Add("Task:Split")
var_Bar.Color = RGB(255,0,0)
var_Bar.Pattern = 6
var_Bar.Shortcut = "Task"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",DateTime(2005-06-22,08:00:00),2005-06-28,"A")
var_Items.ItemBar(h1,"A",20,true)
var_Items.ItemNonworkingUnits(h1,false,"weekday(value) in (1,2)")
var_Items.ItemNonworkingUnits(h1,true,"weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )")
h2 = var_Items.AddItem("Task 1")
var_Items.AddBar(h2,"Task",DateTime(2005-06-22,04:00:00),DateTime(2005-06-29,12:00:00),"A")
var_Items.ItemBar(h2,"A",20,true)
var_Items.ItemNonworkingUnits(h2,false,"weekday(value) in (1,2)")
var_Items.ItemNonworkingUnits(h2,true,"weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )")
oG2antt.EndUpdate()
|
|
1629
|
How can I define the default bar's foreground color
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,48)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Height = 15
var_Bar.Pattern = 1
var_Bar.Def(8,16777215)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-06,"K1","bar A")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-06,"K2","bar B")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-06,"K3","bar C")
oG2antt.EndUpdate()
|
|
1628
|
How can I print the selected items only
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Items,var_Print
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Chart.FirstVisibleDate = 1994-08-04
var_Items = oG2antt.Items
var_Items.SelectItem(var_Items.ItemByIndex(0),true)
var_Items.SelectItem(var_Items.ItemByIndex(2),true)
var_Items.SelectItem(var_Items.ItemByIndex(4),true)
oG2antt.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
var_Print.Options = "Print = Selection"
var_Print.PrintExt = oG2antt.Object
var_Print.Preview()
|
|
1627
|
How can I sort the columns to be displayed on the columns floating bar
OleObject oG2antt,var_Columns
oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
var_Columns.Add("City").Visible = false
var_Columns.Add("Start").Visible = false
var_Columns.Add("End").Visible = false
oG2antt.ColumnsFloatBarVisible = true
oG2antt.ColumnsFloatBarSortOrder = 1
|
|
1626
|
How can I add a vertical padding for my cells
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
var_Column = oG2antt.Columns.Add("Padding")
var_Column.Def(0,true)
var_Column.Def(16,false)
var_Column.Def(48,6)
var_Column.Def(49,6)
var_Column.Def(50,6)
var_Column.Def(51,6)
var_Items = oG2antt.Items
var_Items.AddItem("padding")
var_Items.AddItem("padding")
oG2antt.EndUpdate()
|
|
1625
|
Trying to fill the second columns. How can I do that
OleObject oG2antt,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
var_Columns.Add("Column 3")
var_Items = oG2antt.Items
h = var_Items.AddItem("SubItem 1.1")
var_Items.CellValue(h,1,"SubItem 1.2")
var_Items.CellValue(h,2,"SubItem 1.3")
h = var_Items.AddItem("SubItem 2.1")
var_Items.CellValue(h,1,"SubItem 2.2")
var_Items.CellValue(h,2,"SubItem 2.3")
oG2antt.EndUpdate()
|
|
1624
|
How can I specify a different background color for item, in chart or list panels
OleObject oG2antt,var_Items
any h,hC
oG2antt = ole_1.Object
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
hC = var_Items.InsertItem(h,,"Child 1")
var_Items.ItemBackColor(hC,RGB(255,0,0))
oG2antt.Chart.ItemBackColor(hC,RGB(0,255,0))
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
|
|
1623
|
Is it possible to specify a status part for each bar
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,64)
oG2antt.Debug = true
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRNDEOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B1")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-17,"B2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"K4")
var_Items.ItemBar(0,"<*>",33,255)
var_Items.ItemBar(0,"<*>",51,16777216)
oG2antt.EndUpdate()
|
|
1622
|
How can I change the the focus rectangle
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn")
oG2antt.Background(19,16777216 /*0x1000000*/)
var_Column = oG2antt.Columns.Add("Check")
var_Column.Def(48,2)
var_Column.Def(0,true)
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = true
var_Items = oG2antt.Items
var_Items.AddItem("")
var_Items.AddItem("")
oG2antt.EndUpdate()
|
|
1621
|
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column
OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("Column/Cell-Same").Editor
var_Editor.EditType = 3
var_Editor.AddItem(0,"Zero")
var_Editor.AddItem(1,"One")
var_Editor.AddItem(2,"Two")
var_Editor1 = oG2antt.Columns.Add("Column/Cell-Different").Editor
var_Editor1.EditType = 1
var_Items = oG2antt.Items
var_Items.AddItem()
h = var_Items.AddItem(0)
var_Editor2 = var_Items.CellEditor(h,1)
var_Editor2.EditType = 3
var_Editor2.AddItem(3,"Three")
var_Editor2.AddItem(4,"Four")
var_Items.CellValue(h,1,3)
var_Items.AddItem()
h = var_Items.AddItem(0)
var_Editor3 = var_Items.CellEditor(h,1)
var_Editor3.EditType = 6
var_Editor3.AddItem(1,"Single")
var_Editor3.AddItem(2,"Double")
var_Items.CellValue(h,1,3)
oG2antt.EndUpdate()
|
|
1620
|
How can I specify just a few fonts in a FontType editor
OleObject oG2antt,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.DrawGridLines = -2
var_Editor = oG2antt.Columns.Add("Fonts").Editor
var_Editor.EditType = 10
var_Editor.ClearItems()
var_Editor.AddItem(0,"Calibri")
var_Editor.AddItem(1,"Arial")
var_Editor.AddItem(2,"Rockwell")
var_Editor.AddItem(3,"Tahoma")
var_Editor.SortItems(true)
var_Editor.DropDownRows = 4
var_Items = oG2antt.Items
var_Items.AddItem("Tahoma")
oG2antt.EndUpdate()
|
|
1619
|
How can I show only the working-hours in chart and histogram panels
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,40)
var_Chart.FirstVisibleDate = 2005-06-20
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 64
var_Chart.HistogramView = 112
var_Chart.LevelCount = 3
var_Chart.NonworkingHours = 16253183
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramType = 1
var_Bar.HistogramPattern = var_Bar.Pattern
var_Chart.ShowNonworkingDates = false
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingHours = false
var_Chart.DrawGridLines = -1
var_Chart.UnitScale = 65536
var_Chart.UnitWidth = 4
var_Chart.ResizeUnitScale = var_Chart.UnitScale
var_Items = oG2antt.Items
h = var_Items.AddItem("Task A")
var_Items.AddBar(h,"Task",DateTime(2005-06-23,11:00:00),DateTime(2005-06-23,12:00:00))
var_Items.ItemBar(h,"",21,"0.0416666")
var_Items.ItemBar(h,"",20,true)
h = var_Items.AddItem("Task B")
var_Items.AddBar(h,"Task",DateTime(2005-06-23,12:00:00),DateTime(2005-06-23,16:00:00))
var_Items.ItemBar(h,"",21,"0.0416666")
var_Items.ItemBar(h,"",20,true)
oG2antt.EndUpdate()
|
|
1618
|
How do you embed HTML options into the anchor click string
/*begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(AnchorID) ))
MessageBox("Information",string( String(Options) ))
*/
/*end event AnchorClick*/
OleObject oG2antt,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Car").Def(17,1)
var_Items = oG2antt.Items
var_Items.AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
var_Items.AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
var_Items.AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
var_Items.AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
oG2antt.EndUpdate()
|
|
1617
|
How do I add a checkbox column (method 2)
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "CheckBox Changed:" ))
MessageBox("Information",string( String(oG2antt.Items.CellState(Item,ColIndex)) ))
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Check").Def(0,true)
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Check 1"),0,0)
var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
var_Items.CellState(var_Items.AddItem("Check 3"),0,0)
var_Items.CellState(var_Items.AddItem("Check 4"),0,1)
oG2antt.EndUpdate()
|
|
1616
|
How do I add a checkbox column (method 1)
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "CheckBox Changed:" ))
MessageBox("Information",string( String(NewValue) ))
*/
/*end event Change*/
OleObject oG2antt,var_Column,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Check")
var_Editor = var_Column.Editor
var_Editor.EditType = 19
var_Editor.Option(17,1)
var_Items = oG2antt.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(0)
var_Items.AddItem(1)
oG2antt.EndUpdate()
|
|
1615
|
How do I change the progress bar's appearance
OleObject oG2antt,var_Appearance,var_Editor
oG2antt = ole_1.Object
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(2,"c:\exontrol\images\pushed.ebn")
var_Editor = oG2antt.Columns.Add("Progress").Editor
var_Editor.EditType = 13
var_Editor.Option(11,16777216)
var_Editor.Option(13,33554432)
oG2antt.Items.AddItem(33)
|
|
1614
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78egBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxLC8Mw3BDvYDkOAABAIgI=")
oG2antt.SelBackColor = 33554430 /*0x1fffffe*/
oG2antt.SelForeColor = RGB(0,0,0)
oG2antt.SelBackColor = 16777216 /*0x1000000*/
oG2antt.ShowFocusRect = false
oG2antt.Columns.Add("Items")
oG2antt.DefaultItemHeight = 22
var_Items = oG2antt.Items
var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()
|
|
1613
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = false
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()
|
|
1612
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = true
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()
|
|
1611
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
/*begin event BeforeExpandItem(long Item,any Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "BeforeExpandItem" ))
MessageBox("Information",string( String(Item) ))
oG2antt.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/
OleObject oG2antt,var_Column,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Items")
var_Column.DisplayFilterButton = true
var_Column.FilterList = 4
var_Items = oG2antt.Items
var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oG2antt.EndUpdate()
|
|
1610
|
How can identify when I clicked Hour, Month, or Year of the time-scale overview
/*begin event OverviewZoom() - Occurs once the user selects a new time scale unit in the overview zoom area.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "UnitScale: " ))
MessageBox("Information",string( String(oG2antt.Chart.UnitScale) ))
*/
/*end event OverviewZoom*/
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,128)
var_Chart.LevelCount = 2
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
|
|
1609
|
How can define a minimum and maximum in a column SpinType
OleObject oG2antt,var_Columns,var_Editor
oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
var_Editor = var_Columns.Add("SpinType between 5 and 150").Editor
var_Editor.EditType = 20
var_Editor.Numeric = -1
var_Editor.Option(41,0)
var_Editor.Option(43,5)
var_Editor.Option(44,150)
oG2antt.Items.AddItem(50)
|
|
1608
|
How I can change the title of the time-scale overview. (Example: Month by 'Mes', Day by 'Dia')
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,128)
var_Chart.LevelCount = 2
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Aņo|||Mes|||Dia|||"
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(256,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
|
|
1607
|
Is it possible to set a fixed wide for the Items List Arrea, so that when changing the Form.width, the Items List Arrea be constant and therefor changing the Chart Area-wide
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.OnResizeControl = 1
|
|
1606
|
How can I clear the colors for all bars at once
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,64)
oG2antt.Debug = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
var_Items.ItemBar(h,"A",33,65280)
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B1")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-17,"B2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"K4")
var_Items.ItemBar(0,"<*>",33,0)
oG2antt.EndUpdate()
|
|
1605
|
How can I change the colors for all bars at once
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,64)
oG2antt.Debug = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B1")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-17,"B2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"K4")
var_Items.ItemBar(0,"<*>",33,255)
oG2antt.EndUpdate()
|
|
1604
|
How can I show my custom bars in the histogram (method 3)
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.AllowLinkBars = false
var_Chart.DrawGridLines = -1
var_Chart.FirstVisibleDate = 2000-12-31
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 64
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramType = 256
var_Bar.HistogramItems = 6
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramCumulativeOriginalColorBars = 1
var_Bar.OverlaidType = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-07)
h = var_Items.AddItem("Item 3")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12)
var_Items.ItemBar(h,"",33,255)
oG2antt.EndUpdate()
|
|
1603
|
How can I show my custom bars in the histogram (method 2)
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,64)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 32
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-07)
h = var_Items.AddItem("Item 3")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12)
var_Items.ItemBar(h,"",33,255)
oG2antt.EndUpdate()
|
|
1602
|
How can I show my custom bars in the histogram (method 1)
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,64)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 32
var_Chart.Bars.Item("Task").HistogramPattern = 6
var_Bar = var_Chart.Bars.Copy("Task","MyBar")
var_Bar.HistogramPattern = 5
var_Bar.Color = RGB(255,0,0)
var_Bar.HistogramColor = var_Bar.Color
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Item 3"),"MyBar",2001-01-08,2001-01-12)
oG2antt.EndUpdate()
|
|
1601
|
Do you have any Fit-To-Page options when printing the control
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Print
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Chart.FirstVisibleDate = 1994-08-04
oG2antt.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
var_Print.Options = "FitToPage = On"
var_Print.PrintExt = oG2antt.Object
var_Print.Preview()
|